﻿Imports Persistencia
Imports DSControlePadrao
Public Class ctrDespesa
    Inherits ctrPadrao

#Region "Enumerações"

    Public Enum eDespesasFixas
        COMISSOES = 0
        ROYALTIES = 1
        FRETE = 2
        FORMAS = 3
    End Enum

    Public Enum eColunasDespesa
        ID_DESPESA = 0
        DESC_DESPESA = 1
        VALOR = 2
        GERAR_RECEITA = 3
        VALOR_RECEITA = 4
    End Enum

    Public Enum eTipoDespesa
        TODAS = 0
        CALCULO_AUTOMATICO = 1
        VALOR_MANUAL = 2
    End Enum

#End Region


#Region "Variáveis"
    Private objDespesa As New perDespesas
#End Region

    Public Function retornarDatOutrasDespesas() As DataTable
        Dim datOutrasDespesas As New DataTable

        With datOutrasDespesas
            .Columns.Add("codDespesa", GetType(Integer))
            .Columns.Add("descricao", GetType(String))
            .Columns.Add("valor", GetType(Decimal))
            .Columns.Add("gerarReceita", GetType(Boolean))
            .Columns.Add("valorReceita", GetType(Decimal))

            .TableName = "OutrasDespesas"

        End With

        Return datOutrasDespesas

    End Function

    Public Function selecionarDespesas(ByVal tipoDespesa As perDespesas.eTipoDespesa) As DataTable
        Return objDespesa.selecionarDespesas(tipoDespesa)
    End Function

    Public Function retornarCodDespesa(ByVal sDespesa As String) As Integer
        Return objDespesa.retornarCodDespesa(sDespesa)
    End Function

    Public Function retornarDespesasProposta(ByVal iCodProposta As Int32, ByVal iRevisao As Int32) As DataTable

        Try

            Return Me.objDespesa.retornarDespesasProposta(iCodProposta, iRevisao)

        Catch ex As Exception

            Throw New Exception("Ocorreu um erro no método retornarDespesasProposta." & _
                                Environment.NewLine & ex.Message)

        End Try
    End Function


End Class
